perm filename E.DIF[E,ALS]5 blob
sn#161630 filedate 1975-06-05 generic text, type T, neo UTF8
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 1,1
******** E.41[CSP,SYS] **** PAGE 1 LINE 66
1) C00171 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
1) C00175 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
1) C00177 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
1) C00179 00067 TYI, TYIT, TYIU
1) C00180 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
1) C00186 00069 TMPWRT, BKPWRT
1) C00189 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
1) C00191 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
1) C00192 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) C00194 00073 UTYPR, UTYPR1, USORRY, UFATAL,FATFIX,TELLX,TELLZ
1) C00198 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
1) C00202 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
1) C00208 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) C00210 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
1) C00212 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
1) C00213 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
1) C00216 00080 FSINI, FSINI1, MORCOR
1) C00219 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
1) C00220 00082 FSNEWT, FSNEWP, FSNEW
1) C00221 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
1) C00223 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
1) C00225 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00227 00086 FSBLT, POPTJ, FSBLT1
1) C00228 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00229 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00231 00089 FSGIVE, FSGIV1, FSGIV2
1) C00232 00090 CORCHK, CRUNCH, CMPACT
1) C00234 00091 ENDSET, ENDFIX
1) C00235 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00237 00093 FUCHK, MOVIT, MOVTX
1) C00239 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00241 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00244 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00246 00097 SAVIT
1) C00247 00098 CHECK, CHECK1, CHECK2
1) C00248 00099 CHKDIR, CHKDPL
1) C00250 00100
1) C00252 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00253 00102 CHKPAG, CHKPGP
1) C00254 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) C00256 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00257 00105 CHKATT, CHKNAT
1) C00258 00106 CTAB 0-37
1) C00262 00107 CTAB 40-77
1) C00264 00108 CTAB 100-137
1) C00266 00109 CTAB 140-177
1) C00268 00110 GETDIR
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 1,1
1) C00272 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00274 00112 DIRLIN, DIRLUP, DIRDON
1) C00277 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
1) C00280 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00282 00115 COPCOR, COPCHK, YESCHK, COPCMD
1) C00283 00116 FORMAT, FMTOK, FMTDSP
1) C00289 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
1) C00290 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
1) C00292 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
1) C00294 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) C00296 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
1) C00298 00122 CREATE, CREAT2, CTEXT
1) C00300 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
1) C00302 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
1) C00305 00125 RDLCR, RDLLF, NUMSTR,NUMSIX,OCTSTR,OCTASC
1) C00308 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
1) C00310 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00312 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
1) C00314 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00315 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
1) C00317 00131 DIRGET, DIRGL, DGEND, DRGSET
1) C00319 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00321 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00323 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
1) C00325 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
1) C00327 00136 IDNUL, IDDON, IDDONS
1) C00329 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00330 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00332 00139 DISPLAY DATA STORAGE
1) C00334 00140 MORE DISPLAY STORAGE
1) C00335 00141 HEADERS & TRAILERS
1) C00336 00142 DPYINI, DPYCHK
1) C00339 00143 DPYI2, NODPY, WIPE, IWIPE
1) C00341 00144 SETSCR, NMVARR, MOVARR, SETARR
1) C00343 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
1) C00345 00146 DISP, DISP0, DISP1, DISP2
1) C00347 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
1) C00349 00148 DISPAT, DISPAX
1) C00350 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
1) C00352 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
1) C00353 00151 IIIARR, IIIAR2, IIIAR3
1) C00355 00152 LESET, LEADJ, LECLR
1) C00356 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
1) C00358 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
1) C00359 00155 DDISP, DDISP2
1) C00360 00156 DOARR, DOAR2, OFFARR, ONARR
1) C00361 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
1) C00363 00158 DSPSAT, DSPSAX
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 1,1
1) C00364 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
1) C00366 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
1) C00368 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
1) C00369 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
1) C00371 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
1) C00372 00164 WRPX3, WRPX4
1) C00373 00165 WRPOK, WRTIT, WRT0
1) C00374 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
1) C00376 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
1) C00378 00168 WRPM, BTAB2
1) C00380 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
1) C00381 00170 TV, RSYS, RUN, RUN1
1) C00384 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00385 00172 SEARCH ROUTINES
1) C00387 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
1) C00399 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
1) C00406 00175 FINDIT, FOUND, FNDMOV, FNDERR
1) C00410 00176 FIND
1) C00412 00177 DIRSRC, DFERR, SRCDF, SDFCR
1) C00414 00178 SSET, SSET2
1) C00415 00179 SCOMP, SCOMPX, SCOMPR
1) C00417 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00419 00181 SPARSE
1) C00420 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) C00422 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00424 00184 SSCLP, SSCDSP
1) C00425 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00427 00186 SGNOT
1) C00428 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00430 00188 SBBRCH, SBBR2
1) C00431 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) C00432 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00434 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00436 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00438 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00439 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00441 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00443 00196 SCCOM, SCCNOT
1) C00444 00197 SCCBIT
1) C00445 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00447 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) C00449 00200 SCGEN
1) C00450 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00452 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00454 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00456 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) C00458 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00460 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 1,1
1) C00462 00207 SRCPAG, SRCPG1
1) C00464 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) C00465 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00466 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00467 00211 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00468 00212 SCALL, SRCHX, SRCHLX
1) C00469 00213 SCNBAK, SCNBKL
1) C00471 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
1) C00473 00215 SRCFF, SFFNUL, SGTACS, SRTACS
1) C00474 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00475 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
1) C00485 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
1) C00488 00219 JUSMAR
1) C00493 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) C00496 00221 NXTLIN, NXTLN2, JTAB, NXTBL
1) C00502 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
1) C00506 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
1) C00508 00224 JDFIN
1) C00511 00225 JDFIN2, JSET, JSET2
1) C00513 00226 INDENT,ALINE,CENTER,JLEFT,JOIN
1) C00516 00227 LEFMAR,SHIFTY
1) C00520 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00522 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
1) C00524 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
1) C00536 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY,HOMEG,LAMBDG
1) C00545 00232 ********* BEG OF ESSAY DEFS *********
1) C00564 00233 SUBSTR
1) C00575 00234 SPOOLC
1) C00580 00235 BEGIN SPSUB
1) C00587 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
1) C00594 00237 TELLME,FBI
1) C00607 00238 PDL, PATCH, PAT, ZVARS, LEGTAB
1) C00609 ENDMK
1) C⊗;
*** E[CSP,SYS] *** PAGE 1 LINE 66
2) C00172 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
2) C00176 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
2) C00178 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
2) C00180 00067 TYI, TYIT, TYIU
2) C00181 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
2) C00187 00069 TMPWRT, BKPWRT
2) C00190 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
2) C00192 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
2) C00193 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
2) C00195 00073 UTYPR, UTYPR1, USORRY, UFATAL,FATFIX,TELLX,TELLZ
2) C00199 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
2) C00203 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
2) C00209 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 1,1
2) C00211 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
2) C00213 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
2) C00214 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
2) C00217 00080 FSINI, FSINI1, MORCOR
2) C00220 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
2) C00221 00082 FSNEWT, FSNEWP, FSNEW
2) C00222 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
2) C00224 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
2) C00226 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00228 00086 FSBLT, POPTJ, FSBLT1
2) C00229 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00230 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00232 00089 FSGIVE, FSGIV1, FSGIV2
2) C00233 00090 CORCHK, CRUNCH, CMPACT
2) C00235 00091 ENDSET, ENDFIX
2) C00236 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00238 00093 FUCHK, MOVIT, MOVTX
2) C00240 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00242 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
2) C00245 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00247 00097 SAVIT
2) C00248 00098 CHECK, CHECK1, CHECK2
2) C00249 00099 CHKDIR, CHKDPL
2) C00251 00100
2) C00253 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00254 00102 CHKPAG, CHKPGP
2) C00255 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00257 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00258 00105 CHKATT, CHKNAT
2) C00259 00106 CTAB 0-37
2) C00263 00107 CTAB 40-77
2) C00265 00108 CTAB 100-137
2) C00267 00109 CTAB 140-177
2) C00269 00110 GETDIR
2) C00273 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00275 00112 DIRLIN, DIRLUP, DIRDON
2) C00278 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
2) C00281 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00283 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00284 00116 FORMAT, FMTOK, FMTDSP
2) C00290 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
2) C00291 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
2) C00293 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
2) C00295 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
2) C00297 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX, MDLFCK
2) C00300 00122 CREATE, CREAT2, CTEXT
2) C00302 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
2) C00304 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 1,1
2) C00307 00125 RDLCR, RDLLF, NUMSTR,NUMSIX,OCTSTR,OCTASC
2) C00310 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
2) C00312 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00314 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
2) C00316 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00317 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
2) C00319 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00321 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00323 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00325 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
2) C00327 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
2) C00329 00136 IDNUL, IDDON, IDDONS
2) C00331 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00332 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00334 00139 DISPLAY DATA STORAGE
2) C00336 00140 MORE DISPLAY STORAGE
2) C00337 00141 HEADERS & TRAILERS
2) C00338 00142 DPYINI, DPYCHK
2) C00341 00143 DPYI2, NODPY, WIPE, IWIPE
2) C00343 00144 SETSCR, NMVARR, MOVARR, SETARR
2) C00345 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
2) C00347 00146 DISP, DISP0, DISP1, DISP2
2) C00349 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
2) C00351 00148 DISPAT, DISPAX
2) C00352 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
2) C00354 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
2) C00355 00151 IIIARR, IIIAR2, IIIAR3
2) C00357 00152 LESET, LEADJ, LECLR
2) C00358 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
2) C00360 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
2) C00361 00155 DDISP, DDISP2
2) C00362 00156 DOARR, DOAR2, OFFARR, ONARR
2) C00363 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
2) C00365 00158 DSPSAT, DSPSAX
2) C00366 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
2) C00368 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
2) C00370 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
2) C00371 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
2) C00373 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
2) C00374 00164 WRPX3, WRPX4
2) C00375 00165 WRPOK, WRTIT, WRT0
2) C00376 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
2) C00378 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
2) C00380 00168 WRPM, BTAB2
2) C00382 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
2) C00383 00170 TV, RSYS, RUN, RUN1
2) C00386 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00387 00172 SEARCH ROUTINES
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 1,1
2) C00389 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
2) C00401 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
2) C00408 00175 FINDIT, FOUND, FNDMOV, FNDERR
2) C00412 00176 FIND
2) C00414 00177 DIRSRC, DFERR, SRCDF, SDFCR
2) C00416 00178 SSET, SSET2
2) C00417 00179 SCOMP, SCOMPX, SCOMPR
2) C00419 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00421 00181 SPARSE
2) C00422 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00424 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00426 00184 SSCLP, SSCDSP
2) C00427 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00429 00186 SGNOT
2) C00430 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00432 00188 SBBRCH, SBBR2
2) C00433 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00434 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00436 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
2) C00438 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00440 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00441 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
2) C00443 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00445 00196 SCCOM, SCCNOT
2) C00446 00197 SCCBIT
2) C00447 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00449 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00451 00200 SCGEN
2) C00452 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00454 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00456 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00458 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00460 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00462 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
2) C00464 00207 SRCPAG, SRCPG1
2) C00466 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00467 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00468 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00469 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00470 00212 SCALL, SRCHX, SRCHLX
2) C00471 00213 SCNBAK, SCNBKL
2) C00473 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
2) C00475 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00476 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
2) C00477 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
2) C00487 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
2) C00490 00219 JUSMAR
2) C00495 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 1,1
2) C00498 00221 NXTLIN, NXTLN2, JTAB, NXTBL
2) C00504 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
2) C00508 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
2) C00510 00224 JDFIN
2) C00513 00225 JDFIN2, JSET, JSET2
2) C00515 00226 INDENT,ALINE,CENTER,JLEFT,JOIN
2) C00518 00227 LEFMAR,SHIFTY
2) C00522 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
2) C00524 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
2) C00526 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
2) C00538 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY,HOMEG,LAMBDG
2) C00547 00232 ********* BEG OF ESSAY DEFS *********
2) C00566 00233 SUBSTR
2) C00577 00234 SPOOLC
2) C00582 00235 BEGIN SPSUB
2) C00589 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
2) C00596 00237 TELLME,FBI
2) C00609 00238 PDL, PATCH, PAT, ZVARS, LEGTAB
2) C00611 ENDMK
2) C⊗;
******** E.41[CSP,SYS] **** PAGE 10 LINE 11
1) REPEAT 0,<
1) SETZ T,
1) SKIPN RDONLY ;Don't allow /F in readonly mode.
1) >; allow /F/R
1) MOVM T,FFLINE ;Set at FRD time
1) HRRZM T,EDFIL-2 ;Don't let FFLINE exceed 6 digits (HEDNAM space).
1) MOVE T,@SRCFIL+4
*** E[CSP,SYS] *** PAGE 10 LINE 11
2) MOVE T,@SRCFIL+4
******** E.41[CSP,SYS] **** PAGE 61 LINE 6
1) ; MOVEI T,1
1) ; MOVEM T,SPAGE ;In case no page # is specified.
1) ; MOVEM T,SLINE
1) SETZM FFLINE ;When non-zero used to introduce FF's after # lines
1) MOVE T,PPN
*** E[CSP,SYS] *** PAGE 61 LINE 6
2) SETZM EDFIL-2 ;When non-zero used to introduce FF's after # lines
2) TRZ F,FILLUZ ;Assume new file will be ok.
2) MOVE T,PPN
******** E.41[CSP,SYS] **** PAGE 61 LINE 13
1) MOVEM T,-1(D)
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 61,61
1) SETZM 4(D)
*** E[CSP,SYS] *** PAGE 61 LINE 11
2) MOVEM T,-1(D) ;Set default value
2) SETZM 4(D)
******** E.41[CSP,SYS] **** PAGE 61 LINE 71
1) PUSH P,C
*** E[CSP,SYS] *** PAGE 61 LINE 69
2) ; SKIPE RDONLY ;/F/R implies /N
2) ; SKIPN EDFIL-2
2) ; JRST .+2
2) ; HRLOM D,4(D)
2) PUSH P,C
******** E.41[CSP,SYS] **** PAGE 63 LINE 28
1) MOVEI A,=32 ;Default number of lines/page in /F mode.
1) MOVEM A,FFLINE# ;/F means insert FFs every so many lines.
1) POPJ P,
*** E[CSP,SYS] *** PAGE 63 LINE 28
2) MOVEI A,=33 ;Default number of lines/page in /F mode.
2) HRRZM A,EDFIL-2 ;/F means insert FFs every so many lines.
2) HRLOM D,4(D) ;/F implies /N
2) POPJ P,
******** E.41[CSP,SYS] **** PAGE 63 LINE 68
1) SRCFIL: BLOCK 5
1) 0
*** E[CSP,SYS] *** PAGE 63 LINE 69
2) 0
2) SRCFIL: BLOCK 5
2) 0
2) 0
******** E.41[CSP,SYS] **** PAGE 74 LINE 67
1) LKUP: BLOCK 4
*** E[CSP,SYS] *** PAGE 74 LINE 67
2) 0
2) LKUP: BLOCK 4
******** E.41[CSP,SYS] **** PAGE 78 LINE 32
1) ENTR: BLOCK 4
*** E[CSP,SYS] *** PAGE 78 LINE 32
2) 0
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 78,78
2) ENTR: BLOCK 4
******** E.41[CSP,SYS] **** PAGE 78 LINE 36
1) IBUF: BLOCK 200
*** E[CSP,SYS] *** PAGE 78 LINE 37
2) 0 ;Guard for backed up pointer case
2) IBUF: BLOCK 200
******** E.41[CSP,SYS] **** PAGE 111 LINE 17
1) SKIPN @SRCFIL+4
*** E[CSP,SYS] *** PAGE 111 LINE 17
2) ; SKIPE EDFIL-2
2) ; JRST IGNDIR ;Ignore old directory in /F mode.
2) SKIPN @SRCFIL+4
******** E.41[CSP,SYS] **** PAGE 113 LINE 3
1) LOSDIR: SKIPN PAGES
*** E[CSP,SYS] *** PAGE 113 LINE 3
2) IGNDIR: MOVEI T,[ASCIZ /
2) File is already formatted. Will generate a new directory and keep old
2) directory as part of text (it may be on several pages and don't use it)./]
2) OUTSTR (T)
2) HRLOM H,@SRCFIL+4
2) JRST NODIR
2) LOSDIR: SKIPN PAGES
******** E.41[CSP,SYS] **** PAGE 113 LINE 9
1) SKIPE QUIETF
1) JRST DELDIR
*** E[CSP,SYS] *** PAGE 113 LINE 16
2) BADDI2: SKIPE QUIETF
2) JRST DELDIR
******** E.41[CSP,SYS] **** PAGE 118 LINE 39
1) SETZM FFLIN2# ;Count lines on this page for /F.
1) SETZB T,TT
*** E[CSP,SYS] *** PAGE 118 LINE 39
2) SETZM FFLINE# ;Count lines on this page for /F.
2) SETZB T,TT
******** E.41[CSP,SYS] **** PAGE 121 LINE 1
1) ;MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 121,121
1) MD1CR: IBP INPNT
*** E[CSP,SYS] *** PAGE 121 LINE 1
2) ;MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX, MDLFCK
2) MD1CR: IBP INPNT
******** E.41[CSP,SYS] **** PAGE 121 LINE 30
1) MD4CR: AOS DSP,FFLIN2 ;Count another line on this page.
1) CAMGE DSP,EDFIL-2 ;Time to insert another FF?
*** E[CSP,SYS] *** PAGE 121 LINE 30
2) MD4CR: AOS DSP,FFLINE ;Count another line on this page.
2) CAMGE DSP,EDFIL-2 ;Time to insert another FF?
******** E.41[CSP,SYS] **** PAGE 121 LINE 35
1) ADD G,[070000,,0] ;Back up byte pointer to save char for next time.
1) JRST MDFF4 ;Go insert FF.
*** E[CSP,SYS] *** PAGE 121 LINE 35
2) CAIE C,12 ;Is this the LF we expected?
2) JRST MD5CR
2) GETCH2 H,G ;Get first character following the CRLF.
2) MD5CR: ADD G,[070000,,0] ;Back up byte pointer to save char for next time.
2) JRST MDFF4 ;Go insert FF.
******** E.41[CSP,SYS] **** PAGE 121 LINE 41
1) JRST MDFF4 ;Turn the LF into a FF.
1) JFCL
*** E[CSP,SYS] *** PAGE 121 LINE 44
2) JFCL ;LF
2) JFCL
******** E.41[CSP,SYS] **** PAGE 123 LINE 5
1) MOVE B,A
*** E[CSP,SYS] *** PAGE 123 LINE 5
2) SETZM FFLINE ;Used only with /F switch
2) MOVE B,A
******** E.41[CSP,SYS] **** PAGE 124 LINE 15
1) REPEAT 1,<
1) SKIPN EDFIL-2 ;Are we in /R/F mode?
*** E[CSP,SYS] *** PAGE 124 LINE 15
2) REPEAT 0,<
2) SKIPN EDFIL-2 ;Are we in /R/F mode?
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 124,124
******** E.41[CSP,SYS] **** PAGE 124 LINE 53
1) REPEAT 1,<
1) SKIPE C,EDFIL-2 ;/F mode line count is kept here.
*** E[CSP,SYS] *** PAGE 124 LINE 53
2) REPEAT 0,<
2) SKIPE C,EDFIL-2 ;/F mode line count is kept here.
******** E.41[CSP,SYS] **** PAGE 124 LINE 84
1) TELLD1: PUSHJ P,TELLDZ
1) ASCIZ /
*** E[CSP,SYS] *** PAGE 124 LINE 84
2) TELLD1: SKIPE EDFIL-2
2) POPJ P, ;NO warning if in /F
2) PUSHJ P,TELLDZ
2) ASCIZ /
******** E.41[CSP,SYS] **** PAGE 126 LINE 34
1) PUSHJ P,RLD1
*** E[CSP,SYS] *** PAGE 126 LINE 34
2) ;Dispatch table for /R mode without a directory
2) PUSHJ P,RLD1
******** E.41[CSP,SYS] **** PAGE 126 LINE 43
1) RDLNUL: SKIPE (G)
*** E[CSP,SYS] *** PAGE 126 LINE 44
2) repeat 1,<
2) ;Dispatch table to test the characters after finding a pseudp FF position
2) PUSHJ P,RLD1
2) RPDSP2: JSP C,RDLNUL
2) PUSHJ P,@RLDA
2) JFCL ;CR
2) JFCL ;LF
2) JFCL ;TAB
2) JUMPGE T,SOSTS2 ;A real FF here so restore DSP and proceed normally
2) MOVEI C,"}"
2) >
2) RDLNUL: SKIPE (G)
******** E.41[CSP,SYS] **** PAGE 127 LINE 13
1) SOSCHK: GETCH2 H,G
*** E[CSP,SYS] *** PAGE 127 LINE 13
2) AOS C,FFLINE ;Get updated line count
2) SKIPE EDFIL-2 ;Are we in /F mode?
2) CAMG C,EDFIL-2 ;Are there enough lines on this page?
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 127,127
2) JRST SOSCHK ;not time for pseudo FF
2) SETZM FFLINE
2) MOVEI DSP,RPDSP2 ;Special dispatch table on page 126
2) GETCH2 H,G
2) MOVEI C,14
2) ADD G,[70000,,0]
2) JUMPGE G,.+2
2) SUB G,[430000,,0]
2) SOSTS2: SKIPA DSP,[RPDSP] ;Reset usual dispatch but don't pick up character.
2) ;The above SKIPA skips over the first instruction GETCH2 expands to (ILDB C,G).
2) SOSCHK: GETCH2 H,G
******** E.41[CSP,SYS] **** PAGE 171 LINE 18
1) RUNDEV: 0
*** E[CSP,SYS] *** PAGE 171 LINE 18
2) 0
2) RUNDEV: 0
******** E.41[CSP,SYS] **** PAGE 230 LINE 69
1) ;Now pack the marks two to the word and store them with rest of the data
*** E[CSP,SYS] *** PAGE 230 LINE 69
2) MOVE TT,EDFIL-2 ;except for this which may have been changed
2) MOVEM TT,ZDATA-2(T)
2) MOVE TT,EDFIL-1 ;This should not be necessary but try it anyway
2) MOVEM TT,ZDATA-1(T)
2) ;Now pack the marks two to the word and store them with rest of the data
******** E.41[CSP,SYS] **** PAGE 230 LINE 147
1) MOVNI TT,7 ;Transfer complete EDFIL (including /N in +4)
1) HRLZS TT ;and device name in EDFIL-1
1) ZLIST4: MOVE C,EDFIL-2(TT)
*** E[CSP,SYS] *** PAGE 230 LINE 151
2) MOVNI TT,10 ;Transfer complete EDFIL (including /N in +4)
2) HRLZS TT ;device name in EDFIL-1 and data in ERFIL-2
2) ZLIST4: MOVE C,EDFIL-2(TT)
******** E.41[CSP,SYS] **** PAGE 231 LINE 58
1) MOVE A,ZDATA-2(T) ;Get /F mode line count
1) MOVEM A,EDFIL-2
1) MOVE A,ZDATA-1(T) ;Get device name
*** E[CSP,SYS] *** PAGE 231 LINE 58
2) SETZ A,
2) TRNE F,REDNLY ;If switching in READWRITE mode, don't want /F flag.
2) MOVE A,ZDATA-2(T) ;Get /F mode line count
1) E.41[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-05-75 08:19 PAGES 231,231
2) HRRZM A,EDFIL-2
2) MOVE A,ZDATA-1(T) ;Get device name